package FIT::Document::t::Parser;

use FIT::Test 'FIT::Document::Parser';

sub parse_and_write: Test(3) {
    my $iut = IUT->new(
        in  => "../eg/Division.html",
        out => "tmp",
    );
    is $iut->first_table->fixture_name, 'FIT.eg.Division', 'parse';
    is $iut->out_dir, 'tmp', 'out_dir';
    $iut->write;
    like $iut->out_file->all, qr/Division/, 'write';
    $iut->out_dir->rmtree;
}

sub with_out_file_not_out_dir: Test {
    my $iut = IUT->new(
        in  => "../eg/Division.html",
        out => "tmp/foo.html",
    );
    is $iut->out_dir, 'tmp';
    $iut->out_dir->rmtree;
}

